home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / dev / gui / DesignerV1_55.lha / Install < prev    next >
Text File  |  1995-07-17  |  4KB  |  141 lines
  1. ; This is the installer script for The Designer V1.54
  2.  
  3. (transcript "Designer installation...")
  4.  
  5. (set lh 0)
  6. (set vers "V1_54")
  7. (set srcdir "")
  8. (set archiver ("Designer%s_Disk:c/lx" vers) )
  9.  
  10. (
  11. if (exists ("Designer%s_Disk:" vers) (noreq))
  12.     (
  13.     if (exists ("Designer%s_Disk:Designer%s.lha" vers vers) (noreq))
  14.         (
  15.         (set srcdir "T:Designer")
  16.         (set lh 1)
  17.         )
  18.     )
  19. )
  20.  
  21. (set destdir
  22.     (askdir
  23.         (prompt "Where do you wish to put The Designer ?")
  24.         (help "Choose location for The Designer and Producers.")
  25.         (default @default-dest)
  26.         (disk)
  27.     )
  28. )
  29.  
  30. (set @default-dest destdir)
  31.  
  32. (if (= lh 1) ((working "De-Archiving Main Program" ) (run archiver ("x Designer%s_Disk:Designer%s.lha Designer/Read#? Designer/Designer Designer/Designer.info T:" vers vers))))
  33.  
  34. (copyfiles
  35.     (prompt "Copying Designer to destination.")
  36.     (help @copyfiles-help)
  37.     (source srcdir)
  38.     (dest destdir)
  39.     (choices "ReadMe" "Designer")
  40.     (infos)
  41.     (confirm)
  42. )
  43.  
  44. (if (= lh 1) (run "delete" "T:Designer/#?"))
  45. (if (= lh 1) ((working "De-Archiving Demos" )(run archiver ("x Designer%s_Disk:Designer%s.lha Designer/#?Demo#? T:" vers vers))))
  46.  
  47. (copyfiles
  48.     (prompt "Copying demos to destination.")
  49.     (help @copyfiles-help)
  50.     (source srcdir)
  51.     (dest destdir)
  52.     (pattern "#?Demo#?")
  53.     (infos)
  54.     (confirm)
  55. )
  56.  
  57. (if (= lh 1) (run "delete" "T:Designer/#? all"))
  58. (if (= lh 1) ((working "De-Archiving Guide" )(run archiver ("x Designer%s_Disk:Designer%s.lha Designer/#?Gui#? T:" vers vers))))
  59.  
  60. (copyfiles
  61.     (prompt "Copying Designer.Guide to destination.")
  62.     (help @copyfiles-help)
  63.     (source srcdir)
  64.     (dest destdir)
  65.     (pattern "Designer.Guide")
  66.     (infos)
  67.     (confirm)
  68. )
  69.  
  70. (if (= lh 1) (run "delete" "T:Designer/#?"))
  71. (if (= lh 1) ((working "De-Archiving AsmProducer" )(run archiver ("x Designer%s_Disk:Designer%s.lha Designer/AsmPro#? T:" vers vers))))
  72.  
  73. (copyfiles
  74.     (prompt "Copying Producers to destination.")
  75.     (help @copyfiles-help)
  76.     (source srcdir)
  77.     (dest destdir)
  78.     (pattern "AsmProducer")
  79.     (infos)
  80.     (confirm)
  81. )
  82.  
  83. (if (= lh 1) (run "delete" "T:Designer/#?"))
  84. (if (= lh 1) ((working "De-Archiving CProducer" )(run archiver ("x Designer%s_Disk:Designer%s.lha Designer/CPro#? T:" vers vers))))
  85.  
  86. (copyfiles
  87.     (prompt "Copying Producers to destination.")
  88.     (help @copyfiles-help)
  89.     (source srcdir)
  90.     (dest destdir)
  91.     (pattern "CProducer")
  92.     (infos)
  93.     (confirm)
  94. )
  95.  
  96. (if (= lh 1) (run "delete" "T:Designer/#?"))
  97. (if (= lh 1) ((working "De-Archiving PasProducer" )(run archiver ("x Designer%s_Disk:Designer%s.lha Designer/PasPro#? T:" vers vers))))
  98.  
  99. (copyfiles
  100.     (prompt "Copying Producers to destination.")
  101.     (help @copyfiles-help)
  102.     (source srcdir)
  103.     (dest destdir)
  104.     (pattern "PasProducer")
  105.     (infos)
  106.     (confirm)
  107. )
  108.  
  109. (if (= lh 1) (run "delete" "T:Designer/#?"))
  110. (if (= lh 1) ((working "De-Archiving Developer Files" )(run archiver ("x Designer%s_Disk:Designer%s.lha Designer/Develop#? T:" vers vers))))
  111.  
  112. (copyfiles
  113.     (prompt "Copying Developer files to destination.")
  114.     (help @copyfiles-help)
  115.     (source srcdir)
  116.     (dest destdir)
  117.     (pattern "Developer")
  118.     (infos)
  119.     (confirm)
  120. )
  121.  
  122. (if (= lh 1) (run "delete" "T:Designer/#? all"))
  123. (if (= lh 1) ((working "De-Archiving producer.library" )(run archiver ("x Designer%s_Disk:Designer%s.lha Designer/#?.library T:" vers vers))))
  124.  
  125. (copylib
  126.     (prompt "Copying Producer Library to Libs:.")
  127.     (help @copylib-help)
  128.     (source ( tackon srcdir "producer.library"))
  129.     (dest "Libs:")
  130.     (confirm)
  131. )
  132.  
  133. (if (= lh 1) (run "delete" "T:Designer all"))
  134.  
  135. (startup "Designer"
  136.     (prompt
  137.         "Do you wish to add the directory to your path in \"S:user-startup\" so that your system will be properly configured to use The Designer ?")
  138.     (help "This will make using The Designer far easier from the CLI.")
  139.     (command ("path \"%s\" add" destdir))
  140. )
  141.